Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/peep-drv.fm

Text File | 1993-07-16 | 4KB | 869 lines

(standard0 list-fns stream peephole instruct)
7
1427
(no-change new peep-drv 0 (optimize-lst) ((strip (union (import standard0) (import list-fns) (import stream) (import peephole) (import instruct))) optimize-lst) peep-drv)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 110 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 7 0
46
1
(boot . make-installed-module)
34
2
36
0 0 40 0
5
0 0 0 0
8
3
4
0 0 5 0
5
0 0 8 0
3
0
39
8
0
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 6 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 3 107 0
11
4
0 0 3 0
5
0 0 0 0
39
51
2
7
0 0 8 0
36
0 3 50 0
11
4
0 0 3 0
6
1
39
51
2
7
0 0 9 0
36
0 2 27 0
11
4
0 0 3 0
6
2
39
51
2
7
0 0 10 0
36
0 1 224 0
11
4
0 0 3 0
6
3
39
51
2
7
0 0 11 0
36
0 0 186 0
11
4
0 0 3 0
6
4
39
51
1
7
0 0 12 0
36
0 0 96 0
11
4
0 0 3 0
6
5
39
51
1
7
0 0 13 0
36
0 0 25 0
11
4
0 0 3 0
6
6
39
51
1
7
0 0 14 0
18
3
1
37
36
0 0 19 0
1
(peephole . micro-test)
8
4
10
34
1
9
26
42
32
0 0 8 0
17
2
37
1
(extras0 . caar)
10
26
14
5
2
16
9
13
3
34
1
1
(list-fns . fold)
36
0 0 23 0
12
40
2
12
4
0 0 4 0
12
14
7
4
9
13
5
34
3
1
(arith . +)
36
0 0 19 0
1
(instruct . i-cost)
8
6
10
34
1
12
14
6
3
3
0
62
-3
37
10
27
36
0 0 36 0
4
0 0 13 0
36
0 0 19 0
1
(extras0 . caar)
8
8
10
34
1
3
0
31
0 0 102 1
36
0 0 55 0
1
(boot . append)
36
0 0 19 0
1
(extras0 . caar)
8
9
10
34
1
36
0 0 19 0
1
(extras0 . cadar)
8
10
10
34
1
11
34
2
14
5
3
3
0
31
0 0 5 0
12
42
32
0 0 24 0
1
(gens . reverse)
11
14
6
2
16
9
13
3
33
1
36
0 0 36 0
4
0 0 13 0
36
0 0 19 0
1
(extras0 . caar)
8
9
10
34
1
3
0
31
0 0 229 1
1
(arith . <)
8
4
11
3
0
39
62
-2
32
0 0 22 0
8
4
27
8
4
8
4
14
8
3
3
0
31
0 0 96 1
8
4
27
10
36
0 0 55 0
1
(boot . append)
36
0 0 19 0
1
(extras0 . caar)
8
12
10
34
1
36
0 0 19 0
1
(extras0 . cadar)
8
13
10
34
1
11
34
2
14
8
3
3
0
31
0 0 165 1
36
0 0 19 0
1
(peephole . peep-test)
8
5
10
34
1
9
26
12
3
0
39
9
12
27
3
0
39
29
18
14
6
2
39
37
22
1
11
20
0
0
36
0 0 20 0
3
0
8
4
3
0
3
0
8
6
31
0 0 8 0
15
4
37
22
1
12
20
0
0
9
19
0
0
42
32
0 0 12 0
11
11
14
6
2
39
37
36
0 0 34 0
36
0 0 22 0
1
(extras0 . cadar)
8
5
19
0
0
10
34
1
12
19
1
0
10
33
1
10
19
0
0
27
36
0 0 50 0
1
(boot . append)
36
0 0 31 0
1
(init . mapcar)
36
0 0 86 0
8
10
40
1
8
8
26
3
0
12
34
-3
8
8
11
34
2
11
27
42
32
0 0 12 0
8
4
31
0 0 42 0
36
0 0 22 0
1
(extras0 . caar)
8
6
19
0
0
10
34
1
3
0
39
9
8
4
27
3
0
39
29
18
8
5
39
8
4
21
1
14
9
4
31
0 0 171 1
36
0 0 19 0
1
(gens . reverse)
8
4
10
33
1
3
0
39
9
36
0 0 22 0
1
(extras0 . caar)
8
5
19
0
0
10
34
1
3
0
39
29
18
15
3
37
10
32
0 0 29 0
1
(stream . make-filter-stream)
12
4
0 0 14 0
11
14
7
3
9
13
4
34
2
17
2
37
22
1
36
0 0 17 0
1
(stream . make-simple-stream)
9
34
0
36
0 0 20 0
4
0 0 9 0
12
8
6
3
0
31
0 0 67 1
11
16
20
0
0
18
36
0 0 16 0
3
0
8
6
8
5
31
0 0 37 0
18
1
(extras0 . convert)
11
19
0
0
1
(standard0 . pair)
11
14
8
3
9
13
4
34
2
10
42
32
0 0 10 0
17
2
3
0
37
36
0 0 20 0
3
0
3
0
8
5
3
0
8
6
31
0 0 93 0
9
26
4
0 0 1 0
43
32
0 0 69 0
36
0 0 37 0
1
(stream . write-stream-list)
8
4
19
0
0
1
(lists . nreverse)
8
5
27
26
62
1
11
33
2
18
36
0 0 18 0
1
(extras0 . caddr)
12
10
34
1
13
3
18
31
0 0 104 1
9
27
26
13
3
18
31
0 0 115 1
11
42
32
0 0 29 0
4
0 0 1 0
3
0
39
9
12
3
0
39
29
8
4
3
0
39
29
18
15
5
37
36
0 0 43 0
4
0 0 10 0
8
5
26
8
5
3
0
39
9
1
(peephole . peep-test)
3
0
39
29
18
8
8
39
11
26
31
0 2 61 1
36
0 0 20 0
1
(boot . not)
12
26
42
10
34
1
32
0 0 62 0
4
0 0 2 0
3
0
39
9
36
0 0 40 0
1
(boot . append)
36
0 0 20 0
4
0 0 12 0
8
8
26
3
0
31
0 3 184 1
8
9
27
11
34
2
3
0
39
29
18
15
6
37
9
27
42
32
0 0 35 0
4
0 0 1 0
3
0
39
9
8
5
26
8
5
39
3
0
39
29
8
5
27
3
0
39
29
18
15
6
37
9
27
8
4
27
8
5
26
8
5
39
8
4
14
9
4
31
0 0 210 1